home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inventor Labs: Technology
/
INVENTORLABS_TECHNOLOGY.BIN
/
pc
/
files
/
shared.cst
/
00029_Script_AREA Funct Parent Script
< prev
next >
Wrap
Text File
|
1997-07-24
|
4KB
|
111 lines
--o Funct: AREA
property pCastNum, pPictSprite, pFirstSpriteNum, pQTsprite, pSnd
property pEndSpriteNum, pFrameLabel, pNumOfHS, pAreaHotSpotID
property pCurrAreaCursors, pReturnCursorList
global gModeManager, gInterfaceMgrObj, gAreaManagerObj, gUtilityObj
global gActorListMgrObj,gActiveAmbSnd
------------------------------------------------------------------------------------------------------------------ò
on birth me
return( me )
end birth
------------------------------------------------------------------------------------------------------------------ò
on mInit me, aLineFromDataBase, aPICTsprite
set pPictSprite = aPICTsprite
set pSnd = item 6 of aLineFromDataBase
set pFrameLabel = string( value(item 2 of aLineFromDataBase ))
set pNumOfHS = item 5 of aLineFromDataBase
set pEndSpriteNum = pFirstSpriteNum
set StartSprite = 4
set pCurrAreaCursors = [21:#RETURN,22:#RETURN]
repeat with SpriteNum = StartSprite to (StartSprite + pNumOfHS)
addprop( pCurrAreaCursors,SpriteNum,#Operate )
end repeat
if pFrameLabel = "Ticker" then
setprop( pCurrAreaCursors,6,#zoomin )
setprop( pCurrAreaCursors,7,#zoomin )
end if
end
------------------------------------------------------------------------------------------------------------------ò
on mDiscloseFunctionalityType me
return( #AREA )
end mDiscloseFunctionalityType
------------------------------------------------------------------------------------------------------------------ò
on mClose me
-- if (pFrameLabel = "Ticker") then set pTickerActive = TRUE
mClearToolMenu ( gInterfaceMgrObj )
mUnSetCursors(gUtilityObj)
mDeleteFromActorlist(gActorListMgrObj, gAreaManagerObj)
mSetToolBtns (gInterfaceMgrObj, #NONE)
end mClose
------------------------------------------------------------------------------------------------------------------ò
on mClickEvent me
mClose( me )
end mClickEvent
------------------------------------------------------------------------------------------------------------------ò
on mActivate me
mUpdateReturnFrame(gUtilityObj,label("QTVR"))
go pFrameLabel
set gActiveAmbSnd = pSnd
mPlayAmbient ( gUtilityObj )
go the frame - 1
mAddToActorList(gActorListMgrObj, gAreaManagerObj)
mSetCursors(gUtilityObj, pCurrAreaCursors)
--/
if (pFrameLabel = "Ticker") then mSetToolBtns (gInterfaceMgrObj, #TELEGRAPH, me)
else mSetToolBtns (gInterfaceMgrObj, #AREA, me)
--/
end mActivate
------------------------------------------------------------------------------------------------------------------ò
on mDisclose me
put "AREA"
end
------------------------------------------------------------------------------------------------------------------ò
on mSetAreaHotSpotID me, argAreaHotSpotID
set pAreaHotSpotID = argAreaHotSpotID
end mSetAreaHotSpotID
------------------------------------------------------------------------------------------------------------------ò
on mZoom me, WhatactiveRect
if WhatactiveRect = 1 then go frame "Tape Zoom"
else go frame "Zoom Reciever"
mClearToolHilite (gInterfaceMgrObj)
end mZoom
------------------------------------------------------------------------------------------------------------------ò
on mOperate me, WhatactiveRect
if WhatactiveRect = 1 then go frame "TELEGRAPH"
else if WhatactiveRect = 2 then go frame "Transmitter"
else go frame "Reciever"
mClearToolHilite (gInterfaceMgrObj)
end mOperate
------------------------------------------------------------------------------------------------------------------ò